home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / INET.TELENET.v3.0ß1 < prev    next >
Text File  |  1992-03-20  |  4KB  |  128 lines
  1. *________________________________________________________________________
  2. *
  3. * INET.Script, for QuickMail™
  4. *   Copyright 1988-89 CE Software, Inc.
  5. *
  6. * Version 2.0ß1 
  7. *
  8. * This script can be used to access INET's messaging service.
  9. *  
  10. * A slight modification will allow access to Telemail.  Questions can be 
  11. * addressed to ERSKINE on MacNet or you may call Mr. Tom Polivka at 
  12. * 703-631-6500.
  13. *________________________________________________________________________
  14. *
  15. * MODIFIED 03/16/89 by Bill Davis.  Changed the RECEIVE routine look for
  16. * “Attn:” instead of “To:” in the RECEIVE and MAILFILE lines.   Modified 
  17. * the SEND routine to TYPE Attn:«NAME»^M right before the DUMP command. 
  18. *
  19. * This brings the script in line with the other scripts provided in the
  20. * QuickMail package.
  21. *
  22. * NOTE:
  23. * This modification has NOT been tested as of this writing, especially 
  24. * in the part of the RECEIVE that retrieves a binary file via XMODEM.
  25. *
  26. *________________________________________________________________________
  27. *
  28. * This routine is called to log us into INET Messaging
  29. *
  30. *________________________________________________________________________
  31. :IN
  32. ALERT 4,IN2,recognized.
  33. TYPE ^M
  34. TYPE ^M
  35. TYPE ^M
  36. TYPE C INET^M
  37. WAIT User-id:
  38. TYPE «LOGID»^M
  39. WAIT Password:
  40. TYPE «PASSWORD»^M
  41. WAIT proceed:
  42. TYPE ^M
  43. WAIT command:
  44. TYPE Messaging^M
  45. NOMAIL No new mail.
  46. WAIT Command?
  47. SUCCESS
  48. :IN2
  49. FAILURE
  50. *________________________________________________________________________
  51. *
  52. * This logs us off INET Messaging
  53. *
  54. *________________________________________________________________________
  55. :BYE
  56. TYPE bye^M
  57. WAIT command:
  58. TYPE bye^M
  59. SUCCESS
  60. *________________________________________________________________________
  61. *
  62. * This is called to send all of the mail destined for the INET mail  
  63. * center.  The <<ADDRESS>> variable should contain the appropriate
  64. * INET address (e.g. TB.PICKENS)
  65. * 
  66. * Sending of Enclosures are not supported by this script.
  67. *
  68. *________________________________________________________________________
  69. :SEND
  70. OOPS 60,FAILURE
  71. ALERT 3,S2,hold:
  72. TYPE Compose^M
  73. WAIT To:
  74. TYPE «ADDRESS»^M
  75. WAIT CC:
  76. TYPE ^M
  77. WAIT Subject:
  78. TYPE «TOPIC»^M
  79. WAIT Text:
  80. TYPE Attn:«NAME»^M
  81. DUMP
  82. TYPE .^M
  83. WAIT Send?
  84. TYPE Y^M
  85. WAIT Command?
  86. SUCCESS
  87. :S2
  88. TYPE O^M
  89. SUCCESS
  90. *________________________________________________________________________
  91. *
  92. * This is called to receive mail.  It is called continually for each piece
  93. * of mail waiting in INET.  If a binary mail is detected, an XMODEM
  94. * binary download is set up.  Note: because QuickMail does not 
  95. * support the <1st init>.<last name> notation used by INET, the mail 
  96. * will be sent to the custodian of the default mail center.  In most 
  97. * cases, this will be the QuickMail user.    HOWEVER:  If the sender of a 
  98. * message adds the line “Attn: <name>” where <name> is the QuickMail
  99. * name of the recipient, QuickMail will send the message directly to
  100. * them when it receives it from INET.  If <name> is misspelled, it will
  101. * still go to the Custodian, however.
  102. *
  103. *________________________________________________________________________
  104. :RECEIVE
  105. OOPS 60,FAILURE
  106. TYPE R^M
  107. :R1
  108. ALERT 1,FAILURE,Command?
  109. ALERT 2,R2,receive it
  110. BUFFER Action?
  111. RECEIVE Subj:,Attn:,From:,, 
  112. TYPE ^M
  113. GOTO R1
  114. *________________________________________________________________________
  115. * This routines handles receiving a binary file.
  116. *________________________________________________________________________
  117. :R2
  118. WAIT Action?
  119. TYPE DOWNLOAD BINARY^M
  120. WAIT to cancel.
  121. XMODEM DOWNLOAD,FAILURE
  122. MAILFILE Subj:,Attn:,From:,,
  123. WAIT Action?
  124. TYPE ^M
  125. GOTO R1
  126. :R10
  127. FAILURE
  128.